100 REM *** WHERE AM I? ***
110 PRINT:X=57343:IFPEEK(X)<>85THENIFPEEK(X)<>85THEN400
120 IFPEEK(X)<>170THEN400
130 IFPEEK(X)<>85THEN400
140 IFPEEK(X)<>170THEN400
200 M$=CHR$(PEEK(57342)):PRINT"MANUFACTURER = '";M$;"' ";
210 IFM$="A"THENPRINT"(C64ALIVE)";
220 IFM$="M"THENPRINT"(MC64)";
230 IFM$="S"THENPRINT"(C64S)";
240 IFM$="X"THENPRINT"(X64)";
290 PRINT
300 V=PEEK(57340)+PEEK(57341)*256
310 FORN=0TO3:V$=MID$("01234567890ABCDEF",1+(VAND15),1)+V$:V=INT(V/16):NEXT
320 PRINT"VERSION = $";V$
330 PRINT:POKE780,160
340 IF(M$="M"ORM$="L")ANDV$="0100"ANDPEEK(60686)<>2THENPOKE780,0
350 POKE782,223:SYS43806
390 PRINT:END
400 PRINT"THIS SEEMS MUCH LIKE AN ORIGINAL C64":PRINT"OR C128."